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-- file DIType.Mesa 
-- last modified by 

Sandman, May 5, 1978 8:21 AM 

Barbara, June 23, 1978 12:35 PM 

DIRECTORY 

DebuggerDefs: FROM "debuggerdef s" USING [Fiel dContext] , 

DIDefs: FROM "didefs" USING [ESPointer, predef inedType, thereESPointer] , 

DITypeDefs: FROM "ditypedefs" USING [ 

SeiBoolean, SeiCardinal, SeiCharacter , Seilnteger, SeiString, 

SeiUnspecif ied, SeiLonglnteger] , 
StringDefs: FROM "stringdefs" USING [SubStringDescriptor] , 
SymboUableOefs: FROM "symboUabledef s" USING [SymbolTableBase] . 
SymDefs: FROM "symdefs" USING [ 

codeANY. codeBOOLEAN, codeCHARACTER, codelNTEGER, CSEIndex, CTXIndex, 

SEIndex, SENull , typeANY], 
TypePackDefs: FROM "typepackdef s" USING [ 

AssignableTypes, EquivalentTypes, TypeHandle]; 

DIType: PROGRAM 

IMPORTS TypePackDefs, DebuggerDefs 
EXPORTS DITypeDefs « PUBLIC 
BEGIN OPEN DITypeDefs; 

thereESPointer: TYPE « DIDefs . thereESPointer; 
ESPointer: TYPE « DIDefs .ESPointer ; 

-- type manipulation 

TypeArray: PROCEDURE [esp: ESPointer] RETURNS [BOOLEAN] « 
BEGIN OPEN s: esp.stbase; 
RETURN[IF esp.stbase - NIL THEN FALSE 

ELSE WITH s.seb+s.UnderType[esp.tsei] SELECT FROM 
array => TRUE, 
ENDCASE «> FALSE]; 
END; 

TypeArrayDesc: PROCEDURE [esp: ESPointer] RETURNS [BOOLEAN] « 
BEGIN OPEN s: esp.stbase; 

RETURN[IF esp.stbase « NIL THEN esp.desc ELSE esp.desc OR 
(WITH s.seb+StrippedType[esp] SELECT FROM 
arraydesc «> TRUE, 
ENDCASE «> FALSE)]; 
END; 

TypeBoolean: PROCEDURE [esp: ESPointer] RETURNS [BOOLEAN] - 
BEGIN OPEN s: esp.stbase; 

RETURN[IF esp.stbase » NIL THEN esp.tsei » SeiBoolean 
ELSE WITH s.seb+s,UnderType[esp.tsei] SELECT FROM 
basic "> code = SymDefs . codeBOOLEAN, 
ENDCASE «> FALSE]; 
END; 

TypeCharacter: PROCEDURE [esp: ESPointer] RETURNS [BOOLEAN] « 
BEGIN OPEN s: esp.stbase; 

RETURN[IF esp.stbase = NIL THEN esp.tsei « SeiCharacter 
ELSE WITH s.seb+s.UnderType[esp.tsei] SELECT FROM 
basic «> code = SymDefs .codeCHARACTER, 
ENDCASE «> FALSE]; 
END; 

Typelnteger: PROCEDURE [esp: ESPointer] RETURNS [BOOLEAN] - 
BEGIN OPEN s: esp.stbase; 
RETURN[IF esp.stbase « NIL 

THEN (esp.tsei = Seilnteger OR esp.tsei = SeiLonglnteger) 
ELSE WITH s.sebf-StrippedType[esp] SELECT FROM 
basic -> code = SymDefs . codelNTEGER, 
ENDCASE «> FALSE]; 
END; 

TypeLong: PROCEDURE [esp: ESPointer] RETURNS [BOOLEAN] - 
BEGIN OPEN s: esp.stbase; 

RETURN[IF esp.stbase « NIL THEN esp.tsei » SeiLonglnteger 
ELSE WITH s.S0b+s.UnderType[esp.tsei] SELECT FROM 
long -> TRUE, 
ENDCASE «> FALSE]; 



DIType.mesa 2-Sep-78 15:32:14 Page 



END; 

TypePointer: PROCEDURE [esp: ESPointer] RETURNS [BOOLEAN] - 
BEGIN OPEN s: esp.stbase; 

IF esp.stbase « NIL THEN RETURN[esp . indirection » 0]; 
RETURN[IF esp.stbase ■ NIL THEN esp . indirection i^ 
ELSE esp. indirection j^ OR 
(WITH s.seb+StrippedType[esp] SELECT FROM 
pointer «> TRUE, 
ENDCASE -> FALSE)]; 
END; 

TypeProcedure: PROCEDURE [esp: ESPointer] RETURNS [BOOLEAN] ■ 
BEGIN OPEN s: esp.stbase; 
RETURN[IF esp.stbase » NIL THEN FALSE 

ELSE WITH s.seb+s.UnderType[esp.tsei] SELECT FROM 
transfer «> mode « procedure, 
ENDCASE «> FALSE]; 
END; 

TypeRecord: PROCEDURE [esp: ESPointer] RETURNS [BOOLEAN] - 
BEGIN OPEN s: esp.stbase; 
RETURN[IF esp.stbase - NIL THEN FALSE 

ELSE WITH s.seb+s.UnderType[esp.tsei] SELECT FROM 
record «> TRUE, 
ENDCASE »> FALSE]; 
END; 

StringContext: SymDef s.CTXIndex « L00PH0LE[6]; 

TypeString: PROCEDURE [esp: ESPointer] RETURNS [BOOLEAN] ■ 
BEGIN OPEN s: esp.stbase; 

RETURN[IF esp.stbase « NIL THEN esp.tsei » SeiString 
ELSE WITH s.seb+s.UnderType[esp.tsei] SELECT FROM 
pointer «> s.TypeForm[pointedtotype] « record AND 

DebuggerDef s. Fie1dContext[esp.stbase , pointedtotype] » StringContext, 
long => WITH s . seb+s .UnderType[rangetype] SELECT FROM 
pointer «> s .TypeForm[pointedtotype] » record AND 
DebuggerDef s. FieldContext[esp. stbase, pointedtotype] ■ StringContext. 
ENDCASE -> FALSE, 
ENDCASE => FALSE]; 
END; 

TypeUnspec: PROCEDURE [esp: ESPointer] RETURNS [BOOLEAN] ■ 
BEGIN OPEN s: esp.stbase; 

RETURN[IF esp.stbase = NIL THEN esp.tsei » SeiUnspecif ied 
ELSE WITH s. seb+s. UnderType[esp.tsei] SELECT FROM 
basic "> code =• SymDef s .codeANY, 
ENDCASE «> FALSE]; 
END; 

TypelU: PROCEDURE [esp: ESPointer] RETURNS [BOOLEAN] » 
BEGIN 

RETURN[TypeInteger[esp] OR TypeUnspec[esp]] ; 
END; 

TypelUP: PROCEDURE [esp: ESPointer] RETURNS [BOOLEAN] » 
BEGIN 

RETURN[TypeInteger[esp] OR TypeUnspec[esp] OR TypePointer[esp]] ; 
END; 

StrippedType: PROCEDURE [esp: ESPointer] RETURNS [type: SymDef s .CSEIndex] » 
BEGIN OPEN s: esp.stbase; 
type <- s .UnderType[esp. tsei ]; 
DO 

WITH s.seb+type SELECT FROM 

subrange «> type ^ s .UnderType[rangetype]; 
long «> type <- s.UnderType[rangetype]; 
ENDCASE -> EXIT; 
ENDLOOP; 
RETURN 
END; 

AssignableTypes: PROCEDURE [Ihs, rhs: ESPointer] RETURNS [BOOLEAN] « 
BEGIN 
sei: SymDef s.SEIndex; 
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IF TypeArrayDesc[lhs] AND rhs.desc THEN RETURN[TRUE]; 
IF Ihs.stbase - NIL THEN 

BEGIN 

IF rhs.stbase ■ NIL THEN RETURN[ 

Ihs.tsei - SeiUnspecif led OR rhs.tsei - SeiUnspecif ied OR 
Ihs.tsei " rhs.tsei]; 

sei <r SeiPType[L00PH0LE[1hs.tsei], rhs.stbase]; 

IF sei « SymDefs.SENull THEN RETURN[FALSE] ; 

Ihs.stbase ♦- rhs.stbase; 

Ihs.tsei <- sei ; 

END; 
IF rhs.stbase ■ NIL THEN 

BEGIN 

sei ^ SeiPType[LOOPHOLE[rhs.tsei], Ihs.stbase]; 

IF sei - SymDefs.SENull THEN RETURN[FALSE]; 

rhs.stbase *- Ihs.stbase; 

rhs.tsei ^ sei ; 

END; 
RETURN[CheckTypes[lhs, rhs, TypePackDef s.AssignableTypes]]; 
END; 

EquivalentTypes: PROCEDURE [espl, esp2: ESPointer] RETURNS [BOOLEAN] - 
BEGIN 

sei: SymDefs.SEIndex; 

IF Typ8ArrayDesc[espl] AND espZ.desc THEN RETURN[TRUE]; 
IF espl.stbase ■ NIL THEN 

BEGIN 

IF esp2.stbase - NIL THEN RETURN[ 

espl.tsei » SeiUnspecif ied OR esp2.tsei ■ SeiUnspecif ied OR 
espl.tsei » esp2.tsei]; 

sei *- SeiPType[LOOPHOLE[espl.tsei], esp2 . stbase] ; 

IF sei « SymDefs.SENull THEN RETURN[FALSE] ; 

espl.stbase ♦- esp2. stbase; 

espl.tsei *- sei; 

END; 
IF esp2. stbase « NIL THEN 

BEGIN 

sei ♦- SeiPType[L00PH0LECesp2.tsei], espl.stbase]; 

IF sei « SymDefs.SENull THEN RETURNCFALSE]; 

esp2. stbase *- espl.stbase; 

esp2.tsei ♦- sei; 

END; 
RETURN[CheckTypes[espl, esp2, TypePackDef s .EquivalentTypes]]; 
END; 

TypeHandle: TYPE » TypePackDef s.TypeHandle; 

TypeChecker: TYPE - PROCEDURE [TypeHandle, TypeHandle] RETURNS [BOOLEAN]; 

CheckTypes: PRIVATE PROCEDURE [Ihs. rhs: ESPointer, proc: TypeChecker] 
RETURNS [BOOLEAN] « 
BEGIN 

typeL, typeR: TypeHandle; 
csei: SymDef s.CSEIndex; 
SELECT Ihs. indirection FROM 
■ rhs . indirection »> 
BEGIN 

IF Typelnteger[lhs] AND Typelnteger[rhs] THEN RETURN[TRUE]; 
typeL *- [stb: Ihs.stbase, sei: Ihs .stbase. UnderType[lhs. tsei]]; 
typeR «- [stb: rhs.stbase, sei: rhs . stbase. UnderType[rhs . tsei]]; 
RETURN[proc[typeL. typeR]]; 
END; 
> rhs . indirection »> 

BEGIN OPEN s: rhs.stbase; 
csei ♦- s .UnderType[rhs. tsei] ; 
THROUGH [rhs . indirection. . 1 hs . indirection) DO 
IF csei = SymDef s.typeANY THEN RETURN[TRUE] ; 
WITH s.seb+csei SELECT FROM 

basic -> RETURN[code « SymDef s .codeANY] ; 
pointer «> csei ^ s .UnderType[pointedtotype]; 
ENDCASE «> RETURN[FALSE]; 
ENDLOOP; 
typeR ♦- [stb: rhs.stbase, sei: csei]; 

typeL <- [stb: Ihs.stbase, sei: Ihs .stbase. UndorType[lhs . tsei]]; 
RETURN[proc[typeL, typeR]]; 
END; 
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< rhs. indirection ■> 

BEGIN OPEN s: Ihs.stbase; 
csei ^ s.UnclerType[lhs. tsei]; 
THROUGH [Ihs. indirection. .rhs. indirection) DO 
IF csei ■ SymDefs.typeANY THEN RETURN[TRUE] ; 
WITH s.seb+csei SELECT FROM 

basic -> RETURN[code - SymDef s .codeANY]; 
pointer ■> csei <- s.UnderType[pointedtotype]; 
ENDCASE -> RETURN[FALSE]; 
ENDLOOP; 
typeL ^ [stb: Ihs.stbase, sei: csei]; 

typeR 4- [stb: rhs.stbase, sei: rhs .stbase.UnderType[rhs. tsei]] ; 
RETURN[proc[typeL, typeR]]; 
END; 
ENDCASE; 
END; 

SymbolTableBase: TYPE « SymbolTableDefs.SymbolTableBase; 

SeiPType: PROCEDURE [type: DIDef s.predef inedType, stbase: SymbolTableBase] 
RETURNS [sei: SymDef s .SEIndex] - 
BEGIN 
sei <r IF stbase ■ NIL THEN (SELECT type FROM 

integer «> Seilnteger, 

cardinal => SeiCardinal, 

character «> SeiCharacter, 

boolean «> SeiBoolean, 

string => SeiString, 

longinteger «> SeiLonglnteger, 

ENDCASE -> SeiUnspecified) 
ELSE FindContQxtZeroId[stbase, SELECT type FROM 

integer -> "INTEGER"L, 

cardinal «> "CARDINAL"L, 

character => "CHARACTER"L. 

boolean »> "BOOLEAN"L. 

string => "STRING"L. 

longinteger -> "LONG INTEGER"L, 

ENDCASE «> "UNSPECIFIED"L]; 
RETURN 
END; 

BasicContext: SymDefs.CTXIndex » L00PH0LE[2]; 

FindContextZeroId: PROCEDURE [stbase: SymbolTableBase. id: STRING] 
RETURNS [sei: SymDef s .SEIndex] - 
BEGIN OPEN stbase; 
ssd: StringDef s .SubStringDescriptor ♦- 

[base: id, offset: 0, length: id. length]; 
sei ♦- SearchContext[FindString[0ssd] , BasicContext]; 
RETURN 
END; 

END.. . 



